;;; -*- Mode:LISP; Package:NEW-MATH; Base:10; Readtable:ZL -*-

(defun bar ()
  (let ((a .5d0)
        (b 1.0d0) (c 2.0d0) (d 5.0d0)
        (e 50d0))
    #+foo(setq a (multiply-double a .25d0)
          b (multiply-double b .25d0)
          c (multiply-double c .25d0)
          d (multiply-double d .25d0)
          e (multiply-double e .25d0))
    (li:break a b c d e)
    (li:break (add-double b b)(add-double c c)(add-double d d)(add-double e e)
              (subtract-double b b)(subtract-double c c)(subtract-double d d)(subtract-double e e)
              (multiply-double b b)(multiply-double c c)(multiply-double d d)(multiply-double e e)
              (divide-double b b)(divide-double c c)(divide-double d d)
              ;(divide-double e e)
              ))
  (loop))
